home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / dragon.bas < prev    next >
BASIC Source File  |  1992-05-06  |  666b  |  21 lines
  1. 10    screen 0,4
  2. 20    scnclr: k=0
  3. 30    for j=1 to 15
  4. 40    if j<10 then ?" "j else ?j
  5. 50    pena j: peno j
  6. 60    box (30,2+k;120,4+k),1: k=k+8: next
  7. 70    print at (0,18)"";:input "Which color (1-15)";n$
  8. 80    n=val(n$):if n$="" then end else if n<1 or n>15 then 70
  9. 90    pena n
  10. 100   print at (0,22) ""; :input "Dragon (1-8)";n$
  11. 110   n=val(n$): if n$="" then 20 else if n<1 or n>9 then 100
  12. 120   scnclr
  13. 130   f=128:e=0:k=4^n
  14. 140   for x=1 to n:u=f:f=-e/2:e=u/2:next
  15. 150   x=80:y=70:locate (x,y)
  16. 160   for m=1 to k:z=m:x=x+f:y=y+e:draw (to x,y)
  17. 170   for a=0 to 1:z=z/2:q=int(z):a=z-q:next
  18. 180   a=(-(q/2=int(q/2))*2-1):u=f:f=a*e:e=-a*u
  19. 190   next
  20. 200   goto 100
  21.